home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
science
/
sm32a.zip
/
LIBRARY
/
GRID.LI2
< prev
next >
Wrap
Text File
|
1994-07-20
|
496b
|
15 lines
grid(xmin_,xmax_,ymin_,ymax_) := block(line(0,getmaxy*0.25,getmaxx,getmaxy*0.25),
line(0,getmaxy*0.5,getmaxx,getmaxy*0.5),
line(0,getmaxy*0.75,getmaxx,getmaxy*0.75),
moveto(0,getmaxy*0.5+20),
writes(xmin),
moveto(getmaxx-30,getmaxy*0.5+20),
writes(xmax),
line(getmaxx*0.25,0,getmaxx*0.25,getmaxy),
line(getmaxx*0.5,0,getmaxx*0.5,getmaxy),
line(getmaxx*0.75,0,getmaxx*0.75,getmaxy),
moveto(getmaxx*0.5-20,0),
writes(ymax),
moveto(getmaxx*0.5-20,getmaxy-15),
writes(ymin))